Código fuente de 'Convierte de bytes a Xbytes 2.asp'
<html>
<head>
<title>Convierte de bytes a Xbytes 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Convierte de bytes a Xbytes 2</font></b></p>
Este código permite la conversión entre bytes y unidades superiores, tales como
kilobytes (kb), megabytes (mb), gigabytes (gb) o terabytes (tb).<br>
<form method="POST">
<p>Entra el número en bytes: <input type="text" name="numero" size="20">
<input type="submit" value="Enviar" name="B1"><input type="reset" value="Restablecer" name="B2"></p>
</form>
<%
Function FileSize(intFileSize)
const DecimalPlaces = 1
const FileSizeBytes = 1
const FileSizeKiloByte = 1024
const FileSizeMegaByte = 1048576
const FileSizeGigaByte = 1073741824
const FileSizeTeraByte = 1099511627776
Dim strFileSize, newFilesize
If (Int(intFileSize / FileSizeTeraByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeTeraByte, DecimalPlaces)
strFileSize = newFilesize & " Terabytes"
ElseIf (Int(intFileSize / FileSizeGigaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeGigaByte, DecimalPlaces)
strFileSize = newFilesize & " Gigabytes"
ElseIf (Int(intFileSize / FileSizeMegaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeMegaByte, DecimalPlaces)
strFileSize = newFilesize & " Megabytes"
ElseIf (Int(intFileSize / FileSizeKiloByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeKiloByte, DecimalPlaces)
strFileSize = newFilesize & " Kilobytes"
ElseIf (Int(intFileSize / FileSizeBytes) <> 0) Then
newFilesize = intFilesize
strFileSize = newFilesize & " Bytes"
ElseIf Int(intFileSize) = 0 Then
strFilesize = 0 & " Bytes"
End If
FileSize = strFileSize
End Function
%>
<html>
<body>
<%
numero=request("numero")
if numero<>"" then
if isnumeric(numero) and numero<>"" then
response.write formatnumber(numero,2) & " bytes son: " & Filesize(cdbl(numero))
else
response.write "Formato incorrecto"
end if
end if
%>
</body>
</html>